home *** CD-ROM | disk | FTP | other *** search
/ Directorty Opus 5 - Magellan / Opus 5 - Magellan.iso / Extras / NewIconsV3 / Install / Install_NewIcons_swe < prev    next >
Text File  |  1996-07-28  |  19KB  |  622 lines
  1. ; NewIcons 2.0 Installer Script
  2. ; $Ver: 39.1 (13-Jul-96)
  3. ; Written by Phil Vedovatti
  4. ; Swedish translation by Daniel Stenberg <Daniel.Stenberg@sth.frontec.se>
  5. ; Brought to you by the NewIcons Team
  6.  
  7. (set @default-dest "SYS:C")
  8.  
  9. (set cpu (database "cpu"))
  10. (set cpu020 (and (<> cpu "68000") (<> cpu "68010")))
  11. (set v39 (>= (/ (getversion "exec.library" (resident)) 65536) 39))
  12.  
  13. (set #bad-kick
  14.    (cat "\n\nTyvärr! Du måste ha Workbench 2.0 eller "
  15.         "senare för att kunna använda det här paketet."))
  16.  
  17. (set #hello-message
  18.    (cat "\nTack för att du provar NewIcons, det"
  19.         "\nrevolutionerande grafiska användargränssnittet"
  20.         "\nför Amiga. För att få ut mesta möjliga ur det här"
  21.         "\npaketet, var snäll och läs dokumentationen."
  22.         "\nIngenting kommer att raderas från ditt system av"
  23.         "\ndet här installationsprogramet. Dina gamla"
  24.         "\nWBsymboler kommer fortfarande att vara där, även"
  25.         "\nom det inte kommer att se ut som det på din skärm."
  26.         "\nOm du inte förstår någon del av installationen,"
  27.         "\ntryck på \"Hjälp\"-knappen som finns allt igenom"
  28.         "\nhela installationsprocessen."
  29.         "\n\nTRYCK PÅ FORTSÄTT"))
  30.  
  31. (set #install-which
  32.    (cat "\nVilka delar av NewIcons vill du installera till din"
  33.         "\nhårddisk?\n"))
  34.  
  35. (set #install-library
  36.    (cat "\n\nInstallerar NewIcon.library i LIBS:."))
  37.  
  38. (set #install-library-help
  39.    (cat "\n\nDet här libraryt krävs för att kunna använda NewIcons."))
  40.  
  41. (set #install-newicons
  42.    (cat "\n\nKopierar NewIcons körbara fil och supportfiler till C:"))
  43.  
  44. (set #install-newicons-help
  45.    (cat "\n\nDen här delen installerar NewIcons, InjectBrush"
  46.         "\noch PatchOpenWB i din C: låda."))
  47.  
  48. (set #install-icons
  49.    (cat "\n\nInstallerar NewIcons symboler i din"
  50.         "\nSYS: partition."
  51.         "\n\nDina gamla symboler kommer INTE att raderas."
  52.         "\n\nOBS: se till att du har Amigas standardkommando"
  53.         "\n'list' i din kommando-sökväg (path) innan"
  54.         "\ndu fortsätter."
  55.         "\n\nInstalleringen kan ta lite tid... ha tålamod."))
  56.  
  57. (set #install-icons-help
  58.    (cat "\n\nDe nya symbolerna kommer att vara inlagda bland"
  59.         "\nde tool types i dina existerande .info-filer."
  60.         "\nTooltype raderna kommer att vara osynliga så snart"
  61.         "\nNewIcons kör, så allt användande är helt "
  62.         "\ntransparent för användaren."))
  63.  
  64. (set #tools-dest
  65.    (cat "\nI vilken låda vill du installera NewIcons"
  66.         "\nmanipulationsvertyg?"
  67.         "\nNågon låda kommer INTE att skapas."))
  68.  
  69. (set #install-prefs
  70.    (cat "\nInstallerar NewIconsPrefs i din"
  71.         "\nSys:prefs låda."))
  72.  
  73. (set #install-prefs-help
  74.    (cat "\nAnvänd det här programmet för att konfigurera NewIcons!"))
  75.  
  76. (set #install-classes
  77.    (cat "\n\nInstallerar ClassActklasserna i din"
  78.         "\nSYS:Classes låda."))
  79.  
  80. (set #install-classes-help
  81.    (cat "\nDenna del installerar ClassActs klasser"
  82.         "\n(vilka behövs för NewIconsPrefs) i din"
  83.         "\nSys:Classes låda."))
  84.  
  85. (set #run-prefs
  86.    (cat "\nStartar NewIconsPrefs så att du kan konfigurera"
  87.         "\nNewicons på en gång. Effekten blir inte synlig"
  88.         "\nförrän efter nästa omboot."))
  89.  
  90. (set #startup-change
  91.    (cat "\nNewIcons V3.0 kräver en ändring i "
  92.         "\ndin user-startup för att startas. Ska jag lägga till"
  93.         "\n\n'Run <NIL: >NIL: c:NewIcons'"
  94.         "\n\nin din S:user-startup fil?"
  95.         "\n\n(Du måste kanske radera den gamla raden för hand"
  96.         "\nom du inte installerade NewIcons mha Installer"
  97.         "\nredan från början.)"))
  98.  
  99. (set #install-deficons
  100.    (cat "\n\nInstallerar DefIcons daemon i din"
  101.         "\nC: låda och kopierar defaultsymbolerna"
  102.         "\ntill din Envarc:sys låda."))
  103.  
  104. (set #install-deficons-help
  105.    (cat "\nDenna del installerar Deficons programmet"
  106.         "\noch kopierar de nödvändiga def_icons i din"
  107.         "\nENVARC: låda."))
  108.  
  109. (set #move-olddefs-dir
  110.    (cat "Installer kommer att flytta dina gamla"
  111.         "\ndefaultsymboler till en annan plats."
  112.         "\nVar vill du skapa en ny låda att flytta dem till?"))
  113.  
  114. (set #move-olddefs-help
  115.    (cat "\nDenna del koperar dina gamla defaultsymboler till"
  116.         "\nen säker plats istället för att skriva över dem."
  117.         "\nSkulle du vilja avinstallera Deficons, så finns"
  118.         "\nde kvar och kan återställas."))
  119.  
  120. (set #move-olddefs
  121.    (cat "Flyttar dina gamla defaultsymboler till\n"
  122.         destdir))
  123.  
  124. (set #install-envarc
  125.    (cat "\nKopierar defaultsymboler och 'brainfile'"
  126.         "\ntill ENVARC: så att DefIcons kan använda dem.\n"))
  127.  
  128. (set #install-envarc-help
  129.    (cat "\n\nDenna del installerar symbolerna DefIcons kommer"
  130.         "\natt använda för att visa filer utan redan"
  131.         "\nexisterande symboler."))
  132.  
  133. (set #startup-deficons
  134.    (cat "\n\nLägger till en rad i din S:user-Startup fil"
  135.         "\nför att starta DefIcons när ditt system"
  136.         "\nstartas."))
  137.  
  138. (set #powb-message
  139.    (cat "\n\nOm du har installerat NewIcons, måste du "
  140.            "lägga till en rad i din S:Startup-Sequence:\n\n"
  141.            "C:PatchOpenWB\n"
  142.            "\nför att åtgärda en bugg i operativsystemet 3.x!"
  143.            "\n\n Se till att placera den raden efter Setpatch"
  144.            "\noch innan IPrefs."))
  145.  
  146. (set #docs-dest
  147.    (cat "Var vill du installera NewIcons Documentation"
  148.         "\nGuide?"))
  149.  
  150. (set #exit-message
  151.    (cat "Starta nu om din dator för att verkligen aktivera\n"
  152.         "NewIcons."
  153.         "\n\n\nVi hoppas du uppskattar det här paketet!"))
  154.  
  155. ; ClassAct installation procedure V 1.5 (12.5.96) by Osma Ahvenlampi
  156.  
  157. ; percentage of the size of included ClassAct classes versus the whole
  158. ; distribution (ie. total "complete" percentage after ClassAct is installed)
  159.  
  160. (set classact-complete 70)
  161.  
  162. ; ClassAct installer scripts
  163. (set #classdest-prompt "Välj en låda där du vill ha ClassAct klasserna installerade.\n(Se hjälp för detaljer)")
  164. (set #classdest-help (cat "ClassAct är ett GUI verktyg bestående av delade BOOPSI-klasser.\n\nEn del program kräver några eller alla av ClassActs klasser installerade i ditt system. "
  165.     (if v39 (cat "OS 3.0 har en standardlåda för BOOPSI-klasser, SYS:Classes lådan. Det rekommenderas att du installerar ClassAct där.")
  166.             (cat "OS 2.0 har ingen standardlåda för BOOPSI-klasser. I OS 3.0 lagras klasser i SYS:Classes lådan. Det rekommenderas att du skapar den lådan och installerar ClassAct där.\nDen lådan måste läggas till din LIBS: assign. Det kan göras genomm att du placerar kommandot \nAssign >NIL: LIBS: SYS:Classes ADD\nin din User-Startup. Den här installationsscripten kommer att göra det åt dig.")
  167.         )
  168.     )
  169. )
  170. (set #classes-020 "Vill du använda den OS 3.0, 020 optimerade versionen av ClassAct?")
  171. (set #help-020 "En del ClassAct libraries har versioner optimerade för användning på 020 eller bättre utrustade OS 3.0 eller senare maskiner. Om din Amiga är utrustad med det så installera dessa. 68000/2.0 versionerna kommer också att fungera, men är lite långsammare.")
  172. (set #noclasses-message "Lådan du valde till ClassAct-klasserna är inte en del av din LIBS: assign.\n\nDet är nödvändigt att lägga till den i din assign så att klasserna kan hittas ordentligt.")
  173. (set #creating-dir "Skapar låda ")
  174. (set #usbackup-prompt "User-Startup kommer nu att säkerhetskopieras.")
  175. (set #usbackup-help "Den här installationen kommer nu att ändra i User-Startup. Innan den gör det kommer den att kopiera den gamla User-Startup till S:User-Startup.old")
  176. (set #adding-1 "Lägger till ")
  177. (set #adding-2 " till LIBS: assign\n")
  178. (set #adding-help "Det här behövs för att de egna klasserna ska kunna hittas.")
  179. (set #junod-button "Det verkar som om du har en sen Commodore 'V42' button.gadget installerad i ditt system.\n\nClassActs button.gadget är mycket mer kapabel än den, och vi rekommenderar att du ersätter den. ClassActs button.gadget är bakåtkompatibel med Commodores gadget. Vill du kopiera undan Commodore gadgeten och ersätta den med ClassAct versionen?")
  180. (set #junod-backed "Commodores 'V42' button.gadget har kopierats undan med namnet button.gadget.v42.\n\nClassActs button.gadget kommer att installeras i dess ställe.")
  181. (set #junod-kept "Commodores 'V42' button.gadget blev inte ersatt av den mer kapable ClassAct versionen.\n\nProgram som beror på tillgängligheten av ClassAct-unika funktioner kommer antagligen inte att fungera ordentligt.")
  182. (set #caprefs-message "CAPrefs är ett litet verktyg som ställer in en del användarinställningar för ClassAct aplikationer. Dessa inkluderar 'bevel style' (Tunn/Gadtools/Xen), fönsterfyllning, och grupprubrikdetaljer.\n\nVar god och använd ClassActs GUI prefs editor för att ändra orginalinställingarna. ClassAct prefs kommer att installeras i ditt systems Prefs låda.\n\n")
  183. (set #caprefs-startup-1 "Lägger till kommandot\n\n")
  184. (set #caprefs-startup-2 "\n\nI din s:User-Startup.")
  185.  
  186. (procedure install-classact
  187. (debug "classact")
  188. ; call this procedure to copy the classes included in the Classes directory
  189. ; in your distribution dir.
  190.     (if (exists "Classes") ; The archive contains a ClassAct library update.
  191.     (
  192.         (set comp-dest  (/ (* classact-complete 5) 10))
  193.         (set comp-libs  (/ (* classact-complete 5) 10))
  194.         (set comp-dirs  (/ (* classact-complete 6) 10))
  195.         (set comp-junod (/ (* classact-complete 6) 10))
  196.         (set comp-020   (/ (* classact-complete 7) 10))
  197.         (set comp-gad   (/ (* classact-complete 7) 10))
  198.         (set comp-im    (/ (* classact-complete 8) 10))
  199.         (set comp-prefs (/ (* classact-complete 9) 10))
  200.  
  201.         ; has the user installed ClassAct in CLASSACT: ?
  202.         (set @classact-dest (getassign "CLASSACT" "A"))
  203.         (if (= @classact-dest "") (set @classact-dest "SYS:Classes"))
  204.  
  205.         ; is ClassAct already in SYS:Classes ?
  206.         (if (or (not (exists (tackon @classact-dest "Gadgets/layout.gadget") (noreq)))
  207.                 (= @user-level 2))
  208.             ; no, ask where it should be placed
  209.             (set @classact-dest
  210.                 (askdir
  211.                     (prompt #classdest-prompt)
  212.                     (help #classdest-help)
  213.                     (default @classact-dest)
  214.                     (newpath)
  215.                 )
  216.             )
  217.         )
  218.  
  219.         (complete comp-dest)
  220.  
  221.         (if (<> (run (cat "C/CheckAssign LIBS: " @classact-dest)) 0)
  222.             (
  223.                 (message #noclasses-message)
  224.                 (if (not (exists @classact-dest))
  225.                     (makedir @classact-dest (prompt (cat #creating-dir @classact-dest)))
  226.                 )
  227.                 (set @addassign (cat "Assign >NIL: LIBS: " @classact-dest " ADD\n"))
  228.                 (startup "CLASSACT"
  229.                     (command @addassign)
  230.                     (prompt (cat #adding-1 @classact-dest #adding-2))
  231.                     (help #adding-help)
  232.                 )
  233.                 (run (@addassign))
  234.             )
  235.         )
  236.  
  237.         (complete comp-libs)
  238.  
  239.         (set @classact-gadgets (tackon @classact-dest "Gadgets"))
  240.         (set @classact-images (tackon @classact-dest "Images"))
  241.  
  242.         (if (not (exists @classact-gadgets (noreq)))
  243.             (makedir @classact-images
  244.                 (prompt (cat #creating-dir @classact-gadgets))
  245.             )
  246.         )
  247.  
  248.         (if (not (exists @classact-images (noreq)))
  249.             (makedir @classact-images
  250.                 (prompt (cat #creating-dir @classact-images))
  251.             )
  252.         )
  253.  
  254.         (complete comp-dirs)
  255.  
  256.         (if (exists "SYS:Classes/Gadgets/button.gadget")
  257.             (if (< 40 (/ (getversion "SYS:Classes/Gadgets/button.gadget") 65536))
  258.                 (if (askbool (prompt #junod-button) (help @askbool-help) (default 1))
  259.                     (
  260.                         (rename "SYS:Classes/Gadgets/button.gadget" "SYS:Classes/Gadgets/button.gadget.v42")
  261.                         (message #junod-backed)
  262.                     )
  263.                     (message #junod-kept)
  264.                 )
  265.             )
  266.         )
  267.  
  268.         (complete comp-junod)
  269.  
  270.         (if (exists "Classes/Gadgets/layout.gadget.020")
  271.             (set classes-020 (askbool (prompt #classes-020) (help #help-020) (default (and cpu020 v39))))
  272.             (set classes-020 0)
  273.         )
  274.  
  275.         (complete comp-020)
  276.  
  277.         (foreach "Classes/Gadgets" "#?.gadget"
  278.             (
  279.                 (set thislib (tackon "Classes/Gadgets" @each-name))
  280.                 (if (and classes-020 (exists (cat thislib ".020")))
  281.                     (set thislib (cat thislib ".020"))
  282.                 )
  283.                 (copylib (source thislib)
  284.                     (dest @classact-gadgets)
  285.                     (newname @each-name)
  286.                     (prompt (cat #installing @each-name))
  287.                     (help #classdest-help)
  288.                     (optional "force" "askuser")
  289.                 )
  290.             )
  291.         )
  292.  
  293.         (complete comp-gad)
  294.  
  295.         (foreach "Classes/Images" "#?.image"
  296.             (
  297.                 (set thislib (tackon "Classes/Images" @each-name))
  298.                 (if (and classes-020 (exists (cat thislib ".020")))
  299.                     (set thislib (cat thislib ".020"))
  300.                 )
  301.                 (copylib (source thislib)
  302.                     (dest @classact-images)
  303.                     (newname @each-name)
  304.                     (prompt (cat #installing @each-name))
  305.                     (help #classdest-help)
  306.                     (optional "force" "askuser")
  307.                 )
  308.             )
  309.         )
  310.  
  311.         (complete comp-im)
  312.  
  313.         (foreach "Classes" "#?.class"
  314.             (
  315.                 (set thislib (tackon "Classes" @each-name))
  316.                 (if (and classes-020 (exists (cat thislib ".020")))
  317.                     (set thislib (cat thislib ".020"))
  318.                 )
  319.                 (copylib (source thislib)
  320.                     (dest @classact-dest)
  321.                     (newname @each-name)
  322.                     (prompt (cat #installing @each-name))
  323.                     (help #classdest-help)
  324.                     (optional "force" "askuser")
  325.                 )
  326.             )
  327.         )
  328.     )
  329.     )
  330.     (if (exists "Prefs/ClassAct") ; The archive contains ClassAct prefs tools
  331.     (
  332.         (message #caprefs-message)
  333.  
  334.         (copylib (source "Prefs/CAPrefs")
  335.             (dest "C:")
  336.             (prompt (cat #installing "CAPrefs"))
  337.         )
  338.         (copylib (source "Prefs/ClassAct")
  339.             (dest "SYS:Prefs")
  340.             (prompt (cat #installing "ClassAct Prefs"))
  341.             (infos)
  342.         )
  343.  
  344.         (complete comp-prefs)
  345.  
  346.         (if (not (exists "ENVARC:ClassAct" (noreq)))
  347.             (
  348.                 (makedir "ENVARC:ClassAct"
  349.                     (prompt (cat #creating-dir "ENVARC:ClassAct"))
  350.                 )
  351.                 (textfile (dest "ENVARC:ClassAct/ClassAct")
  352.                     (append "")
  353.                 )
  354.             )
  355.         )
  356.  
  357.         (set caprefs-cmd "C:CAPrefs >NIL:\n")
  358.  
  359.         (startup "CAPREFS"
  360.             (prompt (cat #caprefs-startup-1 caprefs-cmd #caprefs-startup-2))
  361.             (help #caprefs-message)
  362.             (command caprefs-cmd)
  363.         )
  364.     )
  365.     )
  366.  
  367.     (complete classact-complete)
  368. )
  369.  
  370.  
  371.  
  372.  
  373. ; ------------------------------
  374. ; Check Kickstart Version
  375. ; ------------------------------
  376.  
  377.  
  378.  (if (< (getversion "LIBS:version.library") (* 37 65536))
  379.         (abort #bad-kick)
  380.  )
  381.  
  382. (message #hello-message)
  383.  
  384.  
  385. ; ------------------------------
  386. ; What should I install?
  387. ; ------------------------------
  388. (complete 0)
  389. (set InstallOpt
  390.       (askoptions (prompt #install-which)
  391.                   (help @askoptions-help)
  392.                   (choices "NewIcons" "DefIcons" "Documentation")
  393.       )
  394. )
  395.  
  396.  
  397. ; ------------------------------
  398. ; Install NewIcon.library
  399. ; ------------------------------
  400.  
  401. (complete 10)
  402. (if ((patmatch (database "cpu") ("68000|68010")
  403.      )
  404.     )
  405.       (copylib
  406.            (source "/libs/000/newicon.library")
  407.            (dest "libs:")
  408.            (prompt #install-library)
  409.            (help #install-library-help)
  410.            (confirm)
  411.       )
  412.  
  413.       (if (>= (getversion "LIBS:version.library") (* 39 65536)
  414.           )
  415.  
  416.            (copylib
  417.                 (source "/libs/020-V39/newicon.library")
  418.                 (dest "libs:")
  419.                 (prompt #install-library)
  420.                 (help #install-library-help)
  421.                 (confirm)
  422.            )
  423.            (copylib
  424.                 (source "/libs/000/newicon.library")
  425.                 (dest "libs:")
  426.                 (prompt #install-library)
  427.                 (help #install-library-help)
  428.                 (confirm)
  429.            )
  430.       )
  431. )
  432.  
  433. ;--------------------------------------------------------
  434. ; Install NewIcons, icon images, and icon support files
  435. ;--------------------------------------------------------
  436.  
  437. (complete 20)
  438. (if (BITAND InstallOpt 1)
  439.  
  440.   ((message #install-icons)
  441.  
  442.    (execute "Install_Icons"
  443.       (help #install-icons-help)
  444.    )
  445.  
  446.    (complete 25)
  447.  
  448.    (copylib
  449.       (prompt #install-newicons)
  450.       (source "/C/NewIcons")
  451.       (dest "c:")
  452.       (help #install-newicons-help)
  453.    )
  454.  
  455.    (copylib
  456.       (source "/C/InjectBrush")
  457.       (dest "c:")
  458.    )
  459.  
  460.    (copylib
  461.       (source "/C/PatchOpenWB")
  462.       (dest "c:")
  463.    )
  464.  
  465.    (complete 30)
  466.  
  467.    (set destdir
  468.       (askdir
  469.             (prompt #tools-dest)
  470.             (help @askdir-help)
  471.             (default "Sys:Utilities")
  472.       )
  473.    )
  474.  
  475.    (copyfiles
  476.       (source "/Utilities/CopyNewIcon")
  477.       (dest destdir)
  478.       (infos)
  479.    )
  480.  
  481.    (copyfiles
  482.       (source "/Utilities/CreateDefaultIcon")
  483.       (dest destdir)
  484.       (infos)
  485.    )
  486.  
  487.    (copyfiles
  488.       (source "/Utilities/KillNewIcon")
  489.       (dest destdir)
  490.       (infos)
  491.    )
  492.  
  493.    (complete 35)
  494.  
  495.    (startup "NewIcons"
  496.       (prompt #startup-change)
  497.       (command "Run <NIL: >NIL: c:NewIcons")
  498.       (help @startup-help)
  499.    )
  500.  
  501.  
  502.    (copylib
  503.       (prompt #install-prefs)
  504.       (source "/prefs/NewIconsPrefs")
  505.       (dest "Sys:prefs")
  506.       (help #install-prefs-help)
  507.       (confirm)
  508.       (infos)
  509.    )
  510.  
  511.  
  512.  
  513.  
  514. ;------------------------------
  515. ;Install ClassAct classes
  516. ;------------------------------
  517.  
  518. ;   (message #install-classes
  519. ;      (help #install-classes-help)
  520. ;   )
  521.    (install-classact)
  522.   )
  523. )
  524. ;------------------------------
  525. ;Install Deficons
  526. ;------------------------------
  527. (complete 75)
  528. (if (BITAND InstallOpt 2)
  529.  
  530.  
  531.   ((set destdir
  532.       (askdir
  533.            (prompt #move-olddefs-dir)
  534.            (help #move-olddefs-help)
  535.            (default "Sys:Storage")
  536.       )
  537.    )
  538.  
  539.    (set destdir
  540.       (tackon destdir "Old_Def_icons")
  541.    )
  542.  
  543.    (makedir destdir
  544.    )
  545.  
  546.    (complete 80)
  547.  
  548.    (copyfiles
  549.       (prompt #move-olddefs)
  550.       (source "Envarc:sys")
  551.       (dest destdir)
  552.       (pattern "def#?")
  553.       (help #move-olddefs-help)
  554.    )
  555.  
  556.    (copylib
  557.       (prompt #install-deficons)
  558.       (source "/C/DefIcons")
  559.       (dest "C:")
  560.       (help #install-deficons-help)
  561.       (confirm)
  562.    )
  563.  
  564.    (copyfiles
  565.       (prompt #install-envarc)
  566.       (source "/envarc")
  567.       (dest "ENVARC:")
  568.       (all)
  569.       (infos)
  570.       (help #install-envarc-help)
  571.    )
  572.  
  573.    (startup "DefIcons"
  574.       (prompt #startup-deficons)
  575.       (command "DefIcons")
  576.       (help @startup-help)
  577.    )
  578.   )
  579. )
  580.  
  581.  
  582. ;------------------------------
  583. ;Install Documentation
  584. ;------------------------------
  585. (complete 90)
  586. (if (BITAND InstallOpt 4)
  587.  
  588.    ((set destdir
  589.       (askdir
  590.             (prompt #docs-dest)
  591.             (help @askdir-help)
  592.             (default "Help:")
  593.       )
  594.     )
  595.     (copyfiles
  596.       (source "/NewIcons.guide")
  597.       (dest destdir)
  598.       (infos)
  599.     )
  600.    )
  601. )
  602.  
  603.  
  604. ;------------------------------
  605. ;Run NIPrefs
  606. ;------------------------------
  607.  
  608. (complete 95)
  609. (run "/prefs/NewIconsPrefs"
  610.       (prompt #run-prefs)
  611.       (help "This lets you configure NewIcons.")
  612.       (confirm)
  613.       (safe)
  614. )
  615.  
  616. (run "Sys:Utilities/Multiview /NewIcons.guide"
  617.       (safe)
  618. )
  619. (complete 99)
  620. (message #powb-message)
  621. (complete 100)
  622. (exit #exit-message)